home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The PC-SIG Library 10
/
The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso
/
PC_SIGCD
/
20
/
9
/
DISK2092.ZIP
/
RBBS-LIT.ZIP
/
LIT
/
DESQVIEW.LIT
< prev
next >
Wrap
Text File
|
1990-01-27
|
3KB
|
119 lines
*[DESQVIEW.LIT]***************************************************************
* Description: Select DESQview for multi node file locking. *
* RBBS-PC Level: CPC17.3 *
* Selection Option: MULTINODE = DESQVIEW *
* Additional files: None *
******************************************************************************
22000 IF ZMsgFileLock = ZTrue THEN _
RETURN
ZMsgFileLock = ZTrue
MID$(ZLockStatus$,1,2) = "LM"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveMessageFile$
IF ZNetworkType > 0 THEN GOTO 22400
RETURN
22100
22200
22300
22400 CALL DVLock("MESSAGE") ' JM102401
RETURN
22500
25000 IF NOT ZMsgFileLock THEN _
RETURN
ZMsgFileLock = ZFalse
MID$(ZLockStatus$,1,2) = "UM"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveMessageFile$
IF ZNetworkType > 0 THEN GOTO 25400
RETURN
25100
25200
25300
25400 CALL DVUnlock("MESSAGE") ' JM102401
RETURN
25500
26000 IF ZUserFileLock = ZTrue THEN _
RETURN
ZUserFileLock = ZTrue
MID$(ZLockStatus$,4,2) = "LU"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveUserFile$
IF ZNetworkType > 0 THEN GOTO 26300
RETURN
26100
26200
26500 IF ZUserBlockLock = ZTrue THEN _
RETURN
ZUserBlockLock = ZTrue
ZBlk = (ZUserFileIndex / 4) + .26
MID$(ZLockStatus$,7,2) = "LB"
ZSubParm = 2
CALL Line25
IF ZNetworkType > 0 THEN GOTO 26750
RETURN
26600
26700
26800
26900
27000 IF NOT ZUserFileLock THEN _
RETURN
ZUserFileLock = ZFalse
MID$(ZLockStatus$,4,2) = "UU"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveUserFile$
IF ZNetworkType > 0 THEN GOTO 27300
RETURN
27100
27200
27500 IF NOT ZUserBlockLock THEN _
RETURN
ZUserBlockLock = ZFalse
ZBlk = (ZUserFileIndex / 4) + .26
MID$(ZLockStatus$,7,2) = "UB"
ZSubParm = 2
CALL Line25
IF ZNetworkType > 0 THEN GOTO 27750
RETURN
27600
27700
27800
27900
28000
28010
28100
29000 IF LockedEn$ = ZWasEN$ THEN _
RETURN
LockedEn$ = ZWasEN$
MID$(ZLockStatus$,10,2) = "LD"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZWasEN$
IF ZNetworkType > 0 THEN GOTO 29300
29010 RETURN
29100
29500 IF LockedEn$ <> ZWasEN$ THEN _
RETURN
LockedEn$ = ""
MID$(ZLockStatus$,10,2) = "UD"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZWasEN$
IF ZNetworkType > 0 THEN GOTO 29650
29510 RETURN
29600
29700
29710
29720
29730
29800
29810
29820
29830 END SUB
30000 SUB InitIBM STATIC
END SUB
30020